1 Public Class FrmSALES_REPORT_RECEIPT
2
3     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
4         Dim Report As New FrmREPORTS
5         Rpt_SqlStr =
"SELECT * FROM TBL_Sales_Receipt " & _
6                      
"WHERE Sales_ID NOT IN (SELECT Sales_ID FROM TBL_Sales_Void) " & _
7                      
"AND Receipt_Date >=' " & Format(dtfrom.Value, "MM/dd/yyyy") & _
8                      
" ' AND Receipt_Date <=' " & Format(dtto.Value, "MM/dd/yyyy") & "'"
9         globalFRM =
"Sales_Receipt"
10         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Sales Report Receipt ")
11         Report.Show()
12         
'FrmREPORTS.Show()
13         Me.Close()
14     End Sub
15
16     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
17         Me.Close()
18     End Sub
19 End Class


Gõ tìm kiếm nhanh...